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$SBEGIN RMSORUHND,000,RMSRMS,<RMS Recovery Unit Handler> 


| 
| 
PARSER ARELASLELALALELAESELAS ESE SAREE RRR SERRE RARE RRA ARREARS RRR SARA SAS A SRSA SS OO | | 


:* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
P DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. 


ALL RIGHTS RESERVED. 


OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 
ITY FOR THE USE OR _ RELIABILITY OF ITS 


DIGITAL ASSUMES NO RESPONSIBIL 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PRESASSAALELLAELLALALALELALLA SESE SSE SEE EER SRE RRR RRR RASA AAR R AAAS RASA RRA RRA DSS 


; Facility: RMS-32 

: Abstract: F s 

3 This routine serves as a recovery unit handler for RMS and handles 
: wees concerned with the initiation, termination, etc. of recovery 
; units. 


Environment: ; 
VAX/VMS Operating System 


Author: Jeffrey W. Horn Creation Date: 22-Jul-1982 
Modified By: 


; v03-010 ywT0159 Jim Teague 29-Feb-1984 
H Use the new entry point, RMSFLUSH_ALT, which will 

3 invalidate the cache. 

: v03-009 RASO222 Ron Schaefer 9-Dec-1983 


Re-enable exec mode ASTs if necessary on exit from 
the handler. 


v03-008 KPL0002 Peter Lieberwirth 11-Oct-1983 
MARKPOINT must flush buffers and gerare:t? bring the file 
to a quiet, recoverable state. Clear the flag IMP$V_RUH 
while waiting for operations to quiet in the routine SYNCH. 
his flag is not clear, STALL does an RU stall for a 
user operation. This may occur at EXEC AST level, 
resulting in a hang. 


. * 
* * 
* . 
* * 
. 2 
. ® 
* * 
* * 
e « 
y * 
* TRANSFERRED. * 
4 * 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD * 
. 5 
* x 
* * 
* * 
* * 
‘ “ 
* . 

| 

| 

| 

| 

| 
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| 
Since this handler synchronizes with the completion of 
user-initiated RMS requests, a flag must be used to 
indicate to exit_rms that the asynch EFN must be set at 
completion. Since RUH cannot be used for the above reason, 
use RUH_SYNCH. 


v03-007 KPLO001 Peter Lieberwirth 20-Jun-1983 | 
Change some references to JNLFLG to JNLFLG2. 


v03-006 TSK0001 Tamar Krichevsky 12-Jun-1983 | 
Fix broken branch to journaling routine. 


V03-005 ADE9003 Alan D. Eldridge 29-May-1983 
Added RUF$C_PHASE2 to case dispatch vector. 


V03-004 JWHO178 Jeffrey W. Horn 02-Feb-1983 
Back out JWHO171. 


v03-003 JWHO176 Jeffrey W. Horn 31-Jan-1983 | 
Provide a FAB in R8 for call to RMSMAPJNL_RU. | 
} 


V03-002 JwWHO172 Jeffrey W. Horn 21-Jan-1983 
Fix mistype in JWHO171. 


0900900 0909 09 09 09 SI NINN NS NNN NS SIO PA AAA 
NOUS WN 0 OONAUES WN OOONAUE WN —-OOWw 


v03-001 JWHO171 Jeffrey W. Horn 18-Jan-1983 
0000 If IFBS$V_RU_RLK is set then turn on record locking for 
0000 durration of recovery unit. 
0000 
0000 -- 
0000 


ass — a 


Scissors ketene inipininteseniniiaed bitten 


aes 


v04-00 
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RMSSRMSRUHNDLR = Dispatch to Recovery Un mi iaets yi 95:39:3 RMS. SRCJRMSORUHND . MAR: 1 “es (3) 
6 118 ~SBTTL RMSSRMSRUHNDLR = Dispatch to Recovery Unit Event Routines 
119 ; 4+ 
0 } 9 3 RMSSRUHNDLR - Dispatch to Recovery Unit Event Routines 
0 1 § : This is the entry point for this service. It dispatches to one of 
; : 7 3 several event routines depending on the action code. 
000 125 ; 
4 : § ; Calling sequence: 
p 1 8 é Entered from Exec as a result of RUF calling SYSSRMSRUHNDLR in 
1 5 EXEC mode. 
000 130; 
0000 131 ; Input Parameters: 
0000 = ¢ 3 
0000 4133 ; AP Address of RUF argument List 
0000 134 ; 
a4 135 ; Implicit Inputs: 
000 136; 
4 138 ; RUF SL_RUCODE (AP) Address of action code 
0000 139 ; Output Parameters: 
0000 140; RO,R1 Destroyed 
0000 141; 
0000 16 ; Implicit Outputs: 
0000 1435; None 
0000 3=144 ; 
0000 145 ; Completion Codes: 
0000 146; None 
0000 147; 
0000 148 ; Side Effects: | 
0000 149; See descriptions of dispatched routines 
0000 150; 
0000 151 ;:-- 
0000 136 
0000 15 
0000 154 SENTRY RMSSRMSRUHNDLR 
0000 155 
0000 156; 
0000 157 ; Verify this is actually call from RUF by checking previous 
0000 158 ; mode against current mode. 
0000 159; 
4 160 
50 oc 0 161 MOVPSL RO ; get PSL 
51 50 02 18 €EF 000 196 EXTZV #PSL$V_CURMOD,#PSL$S_CURMOD,RO,R1 3; get current mode 
50 8650 2¢ 16 EF 000 16 EXTZV #PSLSV_PRVMOD,#PSLS$S_PRYMOD,RO,RO 3 get previous mode 
1 50 obi OO0C 164 CMPL RO,R1 ; are they the same? 
38 12 OOOF 165 BNEQ ERRMOD > branch if not 
00000000 ' 9F 01 A8 0011 166 BISW2 #1aPl1O$V_INHAST,@#P10$GW_STATUS ; set AST disable 
00000037"EF DF 0018 167 PUSHAL NULL 3 set return point 
OO1E 168 
OO1E 18 3 ; : 
i 109 3 Dispatch to action routine based on code from RUF. 
| es Be 
OA O01 OC BC AF OOIE 138 CASEW  @RUFSL_RUCODE (AP) , #RUF$C_MIN_CODE ,#RUF $C_MAX_CODE 
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Unit Handler 19-360=1 38% 9}:3 717 VAX/VMS Macro v04-00 Page 3 
RMS SRS RUN R = Dispatch to Recovery Un 5=-SEP-1984 16:25: RMS.SRCJRMSORUHND .MAR; 1 (3) 
174 
175 ASSUME RUFS$C <piel EQ RUFSC_MIN_ CODE 
176 ASSUME RUFS$C_PHASE1 EQ 1+RUFSC_START 
17 ASSUME RUFSC_PHASE1_END EQ 1+RUFSC_PHASE1 
0 178 ASSUME RUFSC"PHASE2” EQ 1+RUFSC_PHASE1_END 
0 179 ASSUME RUF SC _PHASE2 END EQ itd 9 Settee | 
00 180 ASSUME RU FSC"MARKPOINT €Q 1+RUFS$C_PHASE2_END 
90 181 ASSUME RUFSC "RESET EQ 1+RUF$C"MARKPOINT 
00 1 ; ASSUME RUF Sc URESET_END EQ 1+#RUFSC_RESET 
8 1 ASSUME RUFSC_CANCEC EQ 1+RUFSC_RESET_END 
0 184 ASSUME RUF SC” “CANCEL_END EQ 1+RUFSC~CANCEC 
88 ! ? ASSUME RUFSCICANCEL_END €Q RUF $C_MAX_CODE 
00 187 DISP: 
002C* 00 188 «WORD STARTRU = DISP ; RUFSC_START 
0047" 00 189 -WORD ENDRU = DISP ; RUFSC_PHAS 
0014" 00 190 «WORD NULL = DISP ; RUFSC_PHASE1_END 
0014" 00 191 «WORD NULL = DISP ; RUF SC_PHAS 
0080" 00 136 -WORD UNLOCK = DISP ; RUFSC_PHASE2_END 
0047° 00 19 «WORD ENDRU = DISP 3 RUFSC_MARKPOINT 
0047" 00 194 «WORD ENDRU = DISP ; RUFSC_RESE 
0014° 00 195 «WORD NULL = DISP ; RUFSC_RESET_END 
0047" 00 196 -WORD ENDRU = DISP ; RUFSC_CANCE 
0080° 8 13 ~-WORD UNLOCK = DISP ; RUFSC_CANCEL_END 
00 199 ; 
33 $09 ; Get here if no action needed for code, or code out of range. 
00 202 © 
09 00000000‘ 9F E4 00 $08 NULL BBSC #PLOSV_INHAST ,a#P10$GW_STATUS,10$ ; re-enable ASTs 
204 SSETAST_S #1 : if disabled 
04 0048 205 10$: RET 
0049 206 
0049 207 
0049 208 
0049 209 ERRMOD: RMSERR RUM 
05 O04E 210 RSB 


RMSORUHND 
vO4=000 


eatesectctll. 
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ety 7 93:38:35 RMS. SRCIRMSORU IND MAR: 1 . 
1 -SBTTL Action Routines 
17 -SBTTL STARTRU = Start a recovery Unit 
15 34+ 
1§ ; STARTRU = Start a recovery Unit 
18 : This routine processes the RUFSC_START action code. 
: t-- 
§ STARTRU: 
MOVAL RUINIT,R6 ; Action to be taken for 
4 BSBB RUSCAN 3; each file. 
‘ RSB 
8 RUINIT: SSB #IFBSV_RUP,IFB$B_JNLFLG2(R9) ; indicate RU in prog 
9 MOVL IFBSL_CAST_FAB(R9) ,R ; get FAB address 
0 JSB RMSMAPJNL_Ru ; write out Mapping ent 
HI RSB 


6 
(4) 


RM 
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v04-000 ENDRU -SEP=1984 16:25:27 RMS .SRCJRMSORUHND .MAR; 1 (5) 
8 A 4 -SBTTL ENDRU 
A 5 ;++ 
Deh § ; ENDRU = End a recovery Unit 
6A § : This routine processes the 
06A ; RUFSC_CANCEL, 
O6A 40 ; RUF SC_RESET 
06A 241; RUF $C_PHASE | 
6A 508 ; action codes. 
Oba te ie 
Ben 45 ENDRU: 
56 Q0000074"EF 0D SA re MOVAL RUEND,R6 3 action to be taken 
44 Oo 071 4 BSBP RUSCAN : for each le 
05 0073 $8 RSB 
Bie 8 
0974 51 RUEND: 
OO9F 30 9074 26 BSBW SYNCH ; wait for asynch ops 
59 D0 0077 5 MOVL R9,R10 ; save IFB addr 
59 1C AD DO OO7A 254 108: MOVL FBSL_IRAB_LNK(R9) ,R9 : get IRB 
17 13 007 55 BEQL 0$ : branch if none 
9093 30 008 2$ BSBW SYNCH 3 wait for asynch ops 
58 24 AD DO 008 5 MOVL IRBSL_LAST_RAB(R9) ,RB ; get RAB address 
OOCO 8F BB 0087 58 PUSHR #*M<R6,R7> 3 Save registers 
00000000'EF 16 0088 259 JSB RMSFLUSH_ALT : flush buffers 
0OCO 8F BA 0091 60 POPR #*M<R6,R7> 3 restore registers 
11 0095 61 BRB ; go get next IRB 
59 A 00 0097 6¢ 208: MOVL R10,R9 : restore IFB addr : 
4 D4 QO9A 6 CLRL R4 i ferce all journal entries | 
00000000 ‘EF 16 Q09C 64 JSB RMSFRCJNL ; call force 
05 OO0A2 265 RSB 


neti 
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yon 080 UNLOCK = Recovery Unit Complete met Pi 93:39:35 RMS .SRCIJRMSORUHND .MAR; 1 ° (6) 
: 44 > -SBTTL UNLOCK = Recovery Unit Complete 
$3 : UNLOCK = Recovery Unit Complete 
A 71: This routine processes the RUFSC_CANCEL_END and the RUFSC_PHASE2 
RA 4 ; action codes 
OA 74 :-- 
OA 75 
OQOA 6 UNLOCK: 
56 QO0000B0"EF DE O0A 7 MOVAL KILLRU,R6 3 action to be taken 
1 ey 8 BSBB RUSCAN ; for each * | 
fesi* 5 AC 7 BSBW RMSRU_UNLOCK i; release all RU locks 
05 OOAF 80 RSB 
0080 81 
0080 8 KILLRU: 
0080 8 CSB #1FBSV_RUP,IFBSB_JNLFLG2(R9) ; clear RU in prog 
a 


ODOOOODOOOOOOOOooO 


womwoonm 


09 50 
58 sintered 


o-om—o 
oooo oe 
-$-$-9-o-o-t-t ttt ttt tt ttt ttett ttt 


CIO FUN 


OOCOCooooooooooooo°ooo 
SoOoCCoo 


— 


w 
o 
Land 
Co @ 
™“ 


o 
m 
oo 
Wo 
amMmm = \y—OmMoe uw Os 


o 
m 


uw 
~N 

s ogo 

WOU POVODOD -WOMaAoo 


—oo-c 97 °0MmMmNn — pee ty 


AWAAIAI AIA AIAIAIPIPONPPOPUNINININIDD 9 9 OOP HM DOOOCOOOCOOOCOWOOOOOOOOOO@WWwoc 
DNAS WO OD NAN EWN CO OONA UE WIN  O OD NOU EWN OOO NOAUE WI -O0OOon 


AWAAAAINAAWWAIAAAIAIA AANA ANIA AAW 


COoOCooooooooo°ooo 
a et et ot ot BOO OOOOO 
—=DOOCCOCO NTH HM 
MF DOA FS MAO LSNMO 


o 
w 


> 
w 
. 
o 
. 
c 
. 
° 
. 
. 
. 
° 
. 
. 
. 
. 
& 
. 
. 
. 
’ 
. 
a 
. 
6 
a 


RUSCAN: 


10$: 
SCAN: 


10$: 
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RMS. SRC JRMSORUHND.MAR; 1 
-SBTTL RUSCAN = Search for files that are RU journaled. 


be 
RUSCAN = Search for files that are RU journaled. 


This subroutine searches for open files that have the recovery unit 
journal bit set. For each one found it sets up the registers 


as follows: 

R9 - Address of IFB 

R11 = Impure area address 
It then calls the routine specified by RUSCAN's caller at the 
address specified in R6. 


If the specified routine returns an error code, the scan is 
terminated. 


MOVAL @#P1O$GW_PIOIMPA,R11 set impure area addr 
B SCAN 


SBB ; go do scan 
BLBC RO,10$ 3 get out on error 
MOVAL a#PIO$GW_IIOIMPA,R11 : Set impure area addr 
BSBB SCAN ; go do scan 
RSB 
RMSSUC preset success . 
SSB #IMPSV_RUH_SYNCH, (R11) set handler synch with 


rms exit 
set handler in prog 
get table address 


SSB #IMP$V_RUH, (R11) 
MOVL IMP$L_TFABTBL(R11),R7 


OVL (R7)+,-(SP) 3; get next seg addr 
MOVZWL IMPS$W_ENTPERSEG(R11),R1 i; get seg Limit 

MOVAL (R7)CR1),-(SP) ; calculate end of seg 
MOVL (R7)+,R9 ; get IFB address 

BEQL 40$ :; branch if ifi not used 
BBC #1FBSV_RU, IFBSB_JNLFLG(R9) ,40$ : branch if no RU 

PUSHR #*M<ROS : Save current status 
JSB (R6) ; call routine 

BLBS RO, 30$ 3 continue on success 
BLBC (SP), 30$ : branch if code already err 
MOVL RO, (SP) ; substitute code 

POPR #*A<RO> 3; restore code 

CMPL R7, (SP) 3; at end of seg? 

BLEQ 208 ; branch if no 

TSTL (SP)+ ; clean off seg end adr 
MOVL (SP)+,R7 3 get next seg 

BNEQ 10$ ; branch if one 

CSB #IMP$V_RUH, (R11) ; clear handler in prog 
cos #1MP$V_RUH_SYNCH, (R11) ; clear handler in prog 


cc 


OR RMS Recovery Unit Handler 16-SEP-1984 01:30:17 VAX/VMS Macro v04-00 Page 
it tied SYNCH = Wait or asynch operations to co oe et 1 94:38:35 RMS.SRCJRMSORUHND.MAR; 7 . 
116 4 fe -SBTTL SYNCH = Wait for asynch operations to complete 
118 tg ; SYNCH = Wait for asynch operations to complete 
11 ‘ 
8 69 ¢0 €1 116 45 SYNCH: BBC #IRBSV bust (RI) ,20$ 3; branch if not ouey 
469 3A €1 O11A BBC #IRBSV- S_STALL,(R9) ,208 ; branch if angt sta led 
iis 4 CSB #iMP$y— “RURT (R1 ; don't do RUSTALL 
1 4 SCLREF #IMPSC_ASYEFN ; clear event flag 
09 00000000°9F 00 £4 Q1 | 4 BBSC #PlO$Sv_ SAS S4P10$GW_STATUS,10$ 3; set enable ASTs 
1 50 $SETAST_S 3 enable ASTs 
1 f 2) 10$: SWAITFR_S sIMP ASYEFN ; t for event 
0C900000' 9F A8& 14 ; BISW2 “#laPlOo$v aeasr’s a4#P10$GW_STATUS S see “AST disable 
14C (35 SSB #IMP$V_ROH, (R115 : ok for RUSTALL again 
11. 015 54 BRB YNCH ; make sure done 
05 015 55 20$: RSB 
015 2$ 
015 5 END 
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Symbol table -SEP=1984 16:25:27 (CRMS.SRCJIRMSORUHND.MAR; 1 (8). 
$$.PSECT_EP = 000 0 SYSSCLREF aeenenee GX 1 
SSRMSTEST = A SYSSSETAST eeenenee GX 1 
SSRMS_PBUGCHK = 19 SYSSWAITFR aeerenee GX 1 
SSRMS~ TBUGCHK = UNLOCK 000000A3 R 1 
SSRMS_UMODE = 4 
DISP 3 1 
ENDRU 00006A R 1 
ERRMOD 000049 1 
1FBSB_JNLFLG = 0000A 
1FBSB_JNLFLG2 = 0000 34 
1FBSL_IRAB_LNK = 0000001C 
IFBSL_LAST_FAB = 46 $1 
IFBSV~RU = 1 
1FB$V_RUP s SRD 
IMPSC_ASYEFN = 00 dt 
IMPS$L_IFABTBL = 0000001 
“RUH = 0000000 
IMP$V~RUH, SYNCH = 000000 
IMPSW_ENTPERSEG = 000000 
IRBSL_LAST_RAB = 4444344 4 
IRB$V_BUSY = 00000020 
IRBS$V~RMS_STALL = 0000003A 
KILiRO 90000080 R 01 
NULL 00000037 R 01 
P1O$SGW_IIOIMPA eeeeneee =X = 01 
PIOSGW_PIOIMPA eeeeeere =X 01 
P1O$GW" STATUS eeeerere = X 01 
P1O$V_TNHAST = 00000000 
PSL$S_CURMOD = 00000002 
PSL$S_PRVMOD = 0000000 
PSL$V_~CURMOD = 0000001 
PSL$V_PRVMOD = 00000016 
RMSFLOSH_ALT teeeeere = XX 01 
RMSFRCJ tereeere = = X 01 
RMSMAPJNL_RU eereeeee = =X 01 
RMSRU_UNLOCK eeereeee§ = X 01 
RMSSRASRUHNDLR = FFFFFFFE RG 01 
RMS$_RUM tererere = = =X 01 
RUE 00000074 R 01 
= 00000009 
= 0000000A 
= 00000006 
= Q000000A 
= aad 
= 4 
= 0000000 
= 00000004 
= 00000005 
= aiat 4 S4 
= i 0008 
= 00000001 
= 0000000c 
00000059 R 01 
B38 00B7 R 01 
O00000CD R 01 
BOR 4F R 4 
00000116 R 1 


RMSORUHND 


: RMS Recovery Unit Handler 
Psect synopsis 


The working set Limit was 1350 pages. 


7 source Lines were read in Pass 1, producing 14 object records in Pass 
26 pages of virtual memory were used to define 25 macros. 


Oe NBO DoE NR OR Ee} 


Macro Library name 


-$255$DUA28: CRMS.OBJIRMS. mLB: ! 11 
“$255$DUA28:CSYS.OBJJLIB.MLB; 1 1 
“$255$DUA28: ESyet IBISTARLET. MLB; 2 9 
TOTALS (all Libraries) 21 


791 GETS were required to define 21 macros. 
There were no errors, warnings or information messages. 


PSECT name Allocation PSECT No. Attributes 
. 00000000 <( 0.) 00 ¢ QO.) NOPIC USR 
RMSRMS 0000015 339.) 01 PIC USR 
SABSS 00000000 0.) 02 ¢ 2.) NOPIC  USR 
$woromeosreem ne eecer sooner smoe 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.11 00: 00:00 .68 
a i processing 110 99:88 :00.70 00:00:04.53 
Pas 254 00:00:07.04 00:00:18.86 
ee table sort 0 00:00:00.84 00:00:01.29 
Pass 2 75 00:00:01.47 00:00:04.01 
Symbol table output 8 00:00:00.08 00:00:00.27 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 480 00:00:10.26 00:00:29.66 


37653 bytes (74 pages) of virtual memory were used to buffer the intermediate code. 
There were 40 pages of symbol table space allocated to hold 663 non-local and 18 local symbols. 


pa19es 90:25:27 


ge Macro V04- 
RMS .SRCJRMSORUHND 


ABS LCL os te NOEXE NORD NO 
REL GBL NOSHR EXE RD NOWRT 
ABS LCL NOSHR EXE RD 
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